home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / PROGS.ZIP / SING.ICN < prev    next >
Text File  |  1992-12-30  |  2KB  |  96 lines
  1. ############################################################################
  2. #
  3. #    File:     sing.icn
  4. #
  5. #    Subject:  Program to sing The Twelve Days of Christmas
  6. #
  7. #    Author:   Frank J. Lhota
  8. #
  9. #    Date:     September 14, 1990
  10. #
  11. ###########################################################################
  12. #  
  13. #     This program is an Icon adaptation of a SNOBOL program by Mike
  14. #  Shapiro in the book The SNOBOL4 Programming Language.  The procedure
  15. #  sing writes the lyrics to the song, "The Twelve Days of Christmas"
  16. #  to the singer parameter.  "singer" can be any file open for output,
  17. #  but it would be especially nice to send the lyrics to a speech
  18. #  synthesiser (perhaps via a pipe).  
  19. #
  20. #     The algorithm used can be adapted to other popular songs, such as
  21. #  "Old McDonald had a Farm".
  22. #
  23. #  Reference:
  24. #
  25. #     "The SNOBOL 4 Programming Language" by Griswold, Poage, and
  26. #  Polonsky, 2nd ed. Englewood Cliffs, N.J. Prentiss-Hall, Inc. 1971.
  27. #
  28. # 
  29. ############################################################################
  30.  
  31. procedure sing(singer)
  32.  
  33.     local which, and
  34.     static day, gift
  35.  
  36.     initial {
  37.     day := [
  38.         "first",
  39.         "second",
  40.         "third",
  41.         "fourth",
  42.         "fifth",
  43.         "sixth",
  44.         "seventh",
  45.         "eighth",
  46.         "ninth",
  47.         "tenth",
  48.         "eleventh",
  49.         "twelfth"]
  50.  
  51.     gift := [
  52.         "twelve lords a'leaping,",
  53.         "eleven ladies dancing,",
  54.         "ten pipers piping,",
  55.         "nine drummers drumming,",
  56.         "eight maids a'milking,",
  57.         "seven swans a'swimming,",
  58.         "six geese a'laying,",
  59.         "five golden rings,",
  60.         "four colly birds,",
  61.         "three french hens,",
  62.         "two turtle doves,",
  63.         "a partridge in a pear tree."]
  64.     }
  65.  
  66.     every which := 1 to 12 do {
  67.     write (singer)    # Take a breath
  68.     write (singer, "On the ", day [which], " day of Christmas,")
  69.     write (singer, "my true love gave to me,")
  70.     every write (singer, !(gift[-which : 0]))
  71.  
  72.     if (/and := "and ") then gift[-1] := and || gift[-1]
  73.     }
  74.  
  75.     #
  76.     # Reset gift[-1] in case sing is called again.
  77.     #
  78.  
  79.     gift[-1] ?:= (=and & tab (0))
  80.  
  81.     return
  82.     
  83. end
  84.  
  85. ############################################################################
  86.  
  87. procedure main ()
  88.  
  89.     #
  90.     # Try out sing procedure with standard output.
  91.     #
  92.     
  93.     sing(&output)
  94.  
  95. end
  96.